home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1995 December / Computer Life December 1995.iso / tapcis / getwea.scr < prev    next >
INI File  |  1995-08-13  |  1KB  |  55 lines
  1. [*About this script*]
  2. This script captures weather reports using the WEA command. By default,
  3. it captures weather for New York, NY and Leesburg, FL. To change the
  4. defaults, modify the city names listed under the "*Cities*" heading below.
  5.  
  6. Another way to override the defaults is to "install" this script as a
  7. service (with Setup|Service) and then modify the service.SVC file (in the
  8. settings directory), adding a [*Cities*] heading followed by your cities.
  9.  
  10. Loren Jenkins [76702,1006] - May, 1995
  11.  
  12. [*Script Setup*]
  13. Title=Get Weather Reports
  14.  
  15. [*Cities*]
  16. New York, NY
  17. Leesburg, FL
  18.  
  19. [Begin]
  20. Echo "Getting Weather reports"
  21. if ( @capName$ = "" ) Let @capName$ = @pathMsg$ @svcName$ '.MSG'
  22.  
  23. WaitList
  24.     1 = "^JEnd of report !"
  25.     2 = "^JEnd of report :"
  26.     endlist
  27.  
  28. Let @hdrSec$ = "1 Weather reports"
  29. Let @hdrSub$ = "ShortTerm forecasts"
  30. Let @hdrNum  = @on
  31. CapHeader
  32.  
  33. ForEach in Cities[] gosub "GetReport"
  34. Send ''
  35. Wait "!"
  36. goto 'Finished'
  37.  
  38. [GetReport]
  39. CapClose
  40. Send 'WEA ' @arrItem$
  41. CapWrite "Report for " @arrItem$ ":"
  42. DoWaitList
  43. CapClose
  44. if ( @waitMatch# = 2 ) gosub "GetPrompt"
  45. Return
  46.  
  47. [GetPrompt]
  48. Send ''
  49. Wait '!'
  50. Return
  51.  
  52. [Finished]
  53. Echo "End of script"
  54. End
  55.